home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 August
/
1988-08.d64
/
ram expander 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
49 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
15 poke 53281,6 :poke 646,14:poke 53280,14
20 print"[147] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved"
40 print"start address ? 49152[157][157][157][157][157][157][157]";:inputx$:a=val(x$)
50 fori=atoa+208:readx:ck=ck+x:pokei,x:next
60 ifck<>23132thenprint"error in data statements.":stop
70 b=a+11:x=int(b/256):y=b-x*256
80 pokea+1,y:pokea+3,x
90 b=a+184:x=int(b/256):y=b-x*256
100 pokea+45,y:pokea+46,x
110 pokea+63,y:pokea+64,x
120 sysa:end
130 data 169,11,160,192,141,8
140 data 3,140,9,3,96,32
150 data 115,0,201,33,240,6
160 data 32,121,0,76,231,167
170 data 32,115,0,165,122,133
180 data 250,165,123,133,251,160
190 data 0,162,0,32,121,0
200 data 133,2,185,184,192,240
210 data 38,197,2,208,9,32
220 data 115,0,133,2,200,24
230 data 144,238,185,184,192,240
240 data 3,200,208,248,200,165
250 data 250,133,122,165,251,133
260 data 123,232,224,4,144,211
270 data 76,8,175,134,2,32
280 data 138,173,32,247,183,140
290 data 7,223,141,8,223,32
300 data 253,174,32,138,173,32
310 data 247,183,140,2,223,141
320 data 3,223,32,253,174,32
330 data 138,173,32,247,183,140
340 data 4,223,141,5,223,32
350 data 253,174,32,138,173,32
360 data 247,183,140,6,223,165
370 data 1,41,254,133,1,165
380 data 2,24,105,144,141,1
390 data 223,165,1,9,1,133
400 data 1,165,2,201,3,208
410 data 12,173,0,223,41,32
420 data 240,5,162,28,108,0
430 data 3,76,174,167,83,84
440 data 65,83,72,0,70,69
450 data 84,67,72,0,83,87
460 data 65,80,0,67,79,77
470 data 80,65,82,69,0